proc algo_creation_ast {} {

	global table_joueurs
	global table_ast
	global seuil

	set ast [creation_ast]
	ajouter_table_ast $ast
	
	set posX [lindex [lindex $ast 1] 0]
	set posY [lindex [lindex $ast 2] 0]
	set numero_asteroide [lindex [lindex $ast 0] 0]

	foreach i [lindex $table_joueurs 0] {
			if { [distance $i $posX $posY] < $seuil} {
				ajouter_joueur_ast [lindex $ast 0] [lindex $i 0]
			}
	}
	
	foreach i [lindex $table_ast 0] {
		set tmp [lsearch [lindex $i 0] $numero_asteroide]
		if {$tmp > -1} {
			if { [llength [lindex $i [expr [llength $i] - 1]]] > 1} {
				envoyer_ast $i
			}
			break
		}
	}
}
